Sub 첫번째매크로_복사()

    Range("B6:B9").TextToColumns Destination:=Range("D6"), _
                                 FieldInfo:=Array(1, 3)

    Range("F6").Value = "최준선"

End Sub